home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 26 / PC Gamer IT CD 26 1-2.iso / MEDIA / NET.DXR / Internal_1.ls < prev    next >
Encoding:
Text File  |  1997-11-05  |  2.0 KB  |  77 lines
  1. on startMovie
  2.   if the platform = "Windows,32" then
  3.     openXLib(the pathName & "XTRAS32\Fileio")
  4.     openXLib(the pathName & "XTRAS32\FileXtra")
  5.   else
  6.     if the platform = "Windows,16" then
  7.       openXLib(the pathName & "XTRAS16\Fileio")
  8.       openXLib(the pathName & "XTRAS16\FileXtra")
  9.     else
  10.       openXLib(the pathName & "xtras:FileIOXtraFat")
  11.     end if
  12.   end if
  13.   loadBrowser()
  14.   getPrefThingy()
  15.   loadBrowser()
  16.   set the visible of sprite 11 to 0
  17.   set the visible of sprite 12 to 0
  18.   set the visible of sprite 13 to 0
  19.   set the visible of sprite 14 to 0
  20.   set the visible of sprite 15 to 0
  21.   set the visible of sprite 16 to 0
  22.   set the visible of sprite 17 to 0
  23.   set the visible of sprite 18 to 0
  24.   set the visible of sprite 19 to 0
  25.   set the visible of sprite 20 to 0
  26.   set the visible of sprite 21 to 0
  27.   set the visible of sprite 22 to 0
  28.   set the visible of sprite 23 to 0
  29.   set the visible of sprite 40 to 0
  30.   set the visible of sprite 41 to 0
  31.   set the visible of sprite 42 to 0
  32.   set the visible of sprite 43 to 0
  33. end
  34.  
  35. on keyDown
  36.   if the key = "" then
  37.     nothing()
  38.     dontPassEvent()
  39.   end if
  40. end
  41.  
  42. on loadBrowser
  43.   global myFile
  44.   set gOSDir to getOSDirectory()
  45.   put gOSDir & "\" into field "OSPath"
  46.   put gOSDir & "\BROWSER.TXT" into field "ThePath"
  47.   set DaPath to field "ThePath"
  48.   if objectp(myFile) then
  49.     set myFile to 0
  50.   end if
  51.   set myFile to new(xtra("fileio"))
  52.   openFile(myFile, DaPath, 1)
  53.   set TheWeb to readLine(myFile)
  54.   put TheWeb into field "browserSelect"
  55.   closeFile(myFile)
  56.   set myFile to 0
  57. end
  58.  
  59. on TrackClick
  60.   set spriteNum to the clickOn
  61.   set offCast to the castNum of sprite spriteNum
  62.   set onCast to offCast + 1
  63.   set the castNum of sprite spriteNum to onCast
  64.   updateStage()
  65.   repeat while the mouseDown
  66.     if rollOver(spriteNum) then
  67.       set the castNum of sprite spriteNum to onCast
  68.     else
  69.       set the castNum of sprite spriteNum to offCast
  70.     end if
  71.     updateStage()
  72.   end repeat
  73.   set the castNum of sprite spriteNum to offCast
  74.   updateStage()
  75.   return rollOver(spriteNum)
  76. end
  77.